home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
comm2
/
zpont311.lha
/
zpoint-3.11
/
Rexx
/
TrafficPause.zprx
< prev
next >
Wrap
Text File
|
1995-03-09
|
2KB
|
65 lines
/**
** $VER: TrafficPause 1.0 (01-Jul-94) Hanns Holger Rutz
** E-Mail: HOLGI@istda.north.de
**
** Bestellt alle Bretter oder bestellt sie ab
** (z. B., wenn man mal ein paar Wochen weg ist)
**/
MAPSaddr = "MAPS@istda.north.de" /* wo ist MAPS zu erreichen? */
TempFile = "T:TrafficPause.tmp" /* temporäre Datei für MAPS Mail */
/*-------------------------------------------------------------------------*/
ReqHeader = "TrafficPause:"||"0A0A"x
ReqBody = "Temporäre Datei"||"0A"x||'"'||TempFile||'"'||"0A"x||"konnte nicht angelegt werden!"
OPTIONS RESULTS
PARSE ARG ZPPort
IF ZPPort == "" THEN ZPPort = "ZPoint"
ADDRESS VALUE ZPPort
WHICHLEVEL
IF RESULT ~= "BOARDMENU" THEN BOARDMENU
REQUESTRESPONSE ReqHeader||"Alle Bretter abbestellen?"
IF RC THEN Betreff = "DEL"
ELSE DO
REQUESTRESPONSE ReqHeader||"Alle Bretter bestellen?"
IF ~RC THEN EXIT
Betreff = "ADD"
END
IF ~OPEN( TempFH, TempFile, "W" ) THEN DO
REQUESTNOTIFY ReqHeader||ReqBody
EXIT
END
JUMPTOBOARD NUMBER 3
COUNT ALL
DO i = 4 TO RESULT
DOWN
BOARDINFO NAMES
Brett = RESULT
IF WRITELN( TempFH, Brett ) ~= LENGTH( Brett ) + 1 THEN DO
REQUESTNOTIFY ReqHeader||ReqBody
EXIT
END
END
IF ~CLOSE( TempFH ) THEN DO
REQUESTNOTIFY ReqHeader||ReqBody
EXIT
END
JUMPTOBOARD NUMBER 1
ENTERBOARD
WRITEMESSAGE TempFile MAPSaddr Betreff
IF RESULT = "" THEN DO
REQUESTNOTIFY ReqHeader||"Konnte Nachricht nicht"||"0A"x||"an MAPS verschicken!"
EXIT
END
COUNT ALL
JUMPTOMESSAGE NUMBER RESULT
ADDRESS COMMAND "C:Delete <>NIL:" TempFile "QUIET"
/* EndOfFile */